home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 246 / 246.d81 / b.64 lists (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  83 lines
  1. 100 ifpeek(44)<>192thengosub60000:goto760
  2. 110 poke56,207:poke55,252:clr:dv=peek(186):ifdv<8thendv=8
  3. 120 poke53280,0:poke53281,0:poke53246,peek(45):poke43247,peek(46)
  4. 130 dimp$(12),f$(12):tt$="[195] - 6 4   [204] [201] [211] [212] [211]"
  5. 140 print"[147][146][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
  6. 150 fori=1to3:print"[158]                                        ";:next
  7. 160 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:gosub560
  8. 170 poke211,0:poke214,22:sys58732
  9. 180 print"[146][153][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";:
  10. 190 print"[159]                                        ";
  11. 200 print"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  12. 210 poke2023,peek(2022):poke56295,peek(56294):gosub560
  13. 220 print"[158]"spc(20-len(tt$)/2)tt$
  14. 230 poke211,10:poke214,23:sys58732:print"[159][195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect
  15. 240 [153]"":[129]i[178]1[164]17
  16. 250 [153]"contspc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
  17. 260 [153]"":[129]i[178]1[164]14
  18. 270 [153]"spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(spc(":[130]
  19. 280 [153]"":[129]i[178]1[164]14
  20. 290 [153]"open                               ":[130]
  21. 300 p$(1)[178]" (NULL)ist (NULL)f peekatn(NULL)right$len/(NULL)(NULL) (NULL)outines   "
  22. 310 p$(2)[178]" (NULL)prite (NULL)egisters            "
  23. 320 p$(3)[178]" (NULL)right$str$ (NULL)egisters               "
  24. 330 p$(4)[178]" 6502 right$nstruction (NULL)et        "
  25. 340 p$(5)[178]" len-64 (NULL)o 128 (NULL)emory (NULL)ap      "
  26. 350 p$(6)[178]" (NULL)eturn (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)          "
  27. 360 p$(7)[178]" (NULL)eset lenomputer              "
  28. 370 f$(1)[178]"routines"
  29. 380 f$(2)[178]"sprite regs
  30. 390 f$(3)="sid registers
  31. 400 f$(4)[178]"inst set
  32. 410 f$(5)="memory map"
  33. 420 f$(6)="hello connect"
  34. 430 f$(12)=""
  35. 440 print"":fori=1to7:print"[159]"p$(i):next:it=1:ot=1:gosub530
  36. 450 geta$:ifa$<>""anda$<>"[145]"anda$<>chr$(13)anda$<>"q"then450
  37. 460 ifa$="q"then580
  38. 470 ot=it:ifa$=""thenit=it+1:ifit>7thenit=1
  39. 480 ifa$="[145]"thenit=it-1:ifit<1thenit=7
  40. 490 ifa$<>chr$(13)thengosub530:goto450
  41. 500 iff$(it)=""thensys64738
  42. 510 ifit=7then580
  43. 520 goto640
  44. 530 poke214,ot+6:poke211,6:sys58732:print"[159]"p$(ot)
  45. 540 poke214,it+6:poke211,6:sys58732:wait53265,128,128:print"[146][153]"p$(it):return
  46. 550 stop
  47. 560 fori=217to242:pokei,peek(i)or128:next:return
  48. 570 close15:open15,8,15,"s:list menu":close15:save"list menu",8:stop
  49. 580 a$="hello connect":fori=8to13:close2:open2,i,2:close2:ifstthen600
  50. 590 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then610
  51. 600 next:print"[147]":poke186,8:end
  52. 610 q$=chr$(34):poke646,peek(53281):print"[147]"
  53. 620 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:p[207]46,8:clr:l[207]"q$a$q$","i
  54. 630 print"run:":poke631,13:poke632,13:poke198,2:end
  55. 640 a$=f$(it):fori=8to13:close2:open2,i,2:close2:ifstthen680
  56. 650 close15:poke787,119
  57. 660 open15,i,15,"r0:"+a$+"="+a$:input#15,e,e$:close15:ife=63then720
  58. 670 rem open15,i,15,"r"+a$+"="+a$:input#15,e,e$:close15:ife=63then50030
  59. 680 next:poke214,23:poke211,0:sys58732:
  60. 690 a$="[195]ouldn't find "+f$(it)+"!"
  61. 700 print"[159]                                        [145]";spc(20-len(a$)/2)a$;
  62. 710 poke198,0:wait198,15:geta$:run
  63. 720 q$=chr$(34):poke646,peek(53281):print"[147]"
  64. 730 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:clr:l[207]"q$a$q$","i
  65. 740 print"run:":poke631,13:poke632,13:poke198,2:end
  66. 750 stop
  67. 760 a$="b.64 lists":fori=8to13:close2:open2,i,2:close2:ifstthen780
  68. 770 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then790
  69. 780 next:print"[144]":poke186,8:end
  70. 790 q$=chr$(34):poke646,peek(53281)
  71. 800 print"p[207]49152,0:p[207]44,192:p[207]43,1:p[207]56,207:p[207]55,252:clr:l[207]"q$a$q$","i
  72. 810 print"run:":poke631,13:poke632,13:poke198,2:end
  73. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  74. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  75. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  76. 60030 z$(0)="[195] - 6 4   [204] [201] [211] [212] [211]"
  77. 60040 z$(2)="by [195]linton [207]'[206]eill
  78. 60050 z$(4)[178]"(c) 1997 by mid$ & asc (NULL)ublishing, right$nc."
  79. 60060 z$(6)[178]"(NULL)his program is not shareware
  80. 60070 z$(7)="or in the public domain."
  81. 60080 z$(9)="1-800-594-3370 or 1-318-221-8718
  82. 60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  83.